From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 23 Jan 2022 13:46:55 +0000 (+0100)
Subject: Improve `M-x speedbar' under emacs -nw very slightly
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3274
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9f5048456af11b533c8762d8e1f7d63cda896535;p=emacs.git

Improve `M-x speedbar' under emacs -nw very slightly

* lisp/speedbar.el (speedbar-frame-mode): `M-x speedbar' doesn't
seem to do anything visible under -nw, so issue a message in that
case to tell the user how to proceed (bug#32597).
---

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index e63a2642fe2..b2e7be1505c 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -938,7 +938,9 @@ supported at a time.
   ;; hscroll
   (setq-local auto-hscroll-mode nil)
   ;; reset the selection variable
-  (setq speedbar-last-selected-file nil))
+  (setq speedbar-last-selected-file nil)
+  (unless (display-graphic-p)
+    (message "Use `M-x speedbar-get-focus' to see the speedbar window")))
 
 (defun speedbar-frame-reposition-smartly ()
   "Reposition the speedbar frame to be next to the attached frame."